o 


o 



PAGE 1 

DELATE SRI 

3 DELETE PROGRAMS FROM SYSTEM DIRECTORY 

o 



, TITLE 

DELETE PROGRAMS FROM SYSTEM DIRECTORY 




/ 7 ~ 2 7 * 7 1 





/DIGITAL EQUIPMENT CORPORATION! MAYNARD, MASS, 

o 



/ED HILTON 





« ABS 


o 

01100 


,LOC 

1100 



707541 

DTCA=707541 




707544 

QTXA=707544 


o 


707545 

D T L A = 7 0 7 5 4 5 




707552 

D T R A = 7 0 7 5 5 2 




707561 

□ TEF = 707561 


0 


707572 

DTRB=7 07572 




707601 

PTDF=707601 




00056 a 

UPREFXS560 


o 


700312 

KRB= 700312 




0 0 0514 

CRLF=5i4 




000522 

T Y P 0 N E ? 5 2 2 


o 


000460 

TSIXBTP460 




000253 

W A I T P 2 5 3 




000120 

GETMONP120 


o 


000565 

DIRECT3565 




000756 

SLINK=756 




000540 

PSOQP540 


o 


000533 

LR0T6=533 




7 0 7/64 

EBA=707764 




707/02 

EEM=707702 


o 



/ 



01100 

100514 

START JMS 

crlf 


01101 

100560 

JMS 

UPREFX 

o 

0110 2 

707764 

EBA 



01103 

707/02 

EEM 



01104 

202062 

LAC 

( STMSG^l 

0 

01105 

1 0 0 4 6 0 

JMS 

TSJXBT 


01106 

100514 

ST 1 X JMS 

CRLF 


01107 

202063 

LAC 

( f I T M S G « 1 * 4 0 0 0 0 0 

o 

01110 

100460 

JMS 

TSfXBT 


01111 

142031 

OHM 

Alt 


01112 

142032 

DZM 

B# 

o 

01113 

777771 

LAW 

"! 7 


01114 

042033 

DAC 

CARCNT# 




, EJECT 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


PAGE. 2 DELETE SRC DELETE PROGRAMS F'ROM SYSTEM DIRECTORY 


0X115 

100253 

mu 6 

542064 

01117 

600120 

01120 

542065 

01121 

7410P0 

01122 

601132 

01123 

101/11 

01124 

202033 

0112 5 

542066 

0112 6 

601115 

01127 

34206/ 

01130 

042033 

01131 

601115 

0 1 1 3 2 

542070 

01133 

6 0 1 1 4 4 

01134 

5020/1 

01135 

101666 

01136 

442033 

01137 

601115 

01140 

2020/2 

01141 

100460 

0 114 2 

700312 

0114 3 

601106 


qeleta JMS 

SAD 
J M P 
SAD 
SKP 
JMP 
JMS 
LAC 
SAD 
JMP 
TAD 
DAC 
JMP 
/ 

PELT i 1 SAD 
JMP 
AND 
JMS 
ISZ 
JMP 
LAC 
JHS 
KR8 
JMP 

» EJECT 


WAIT 

(203 

getmon 
(3 77 

PELT * 1 
DPPRSR 
CARCNt 
\«7 

PESETA 
( wi 

CARCNT 

PELETA 

(23,5 
OEUETB 
C 77 

DBPRSL, 

CARCNT 

DELETA 

(WHAT"1 , + 400000 
TSIXBT 

51,1 


/RUBOUT 


/TERMINATOR, UEFT JUSTIFY "A" ANO «B» 
/AND CHECK DIRECTORY FOR A 
/MATCH, THEN DELETE THE 
/PROGRAM 



PAGE a DELETE SRC DELETE PROGRAMS FROM SYSTEM DIRECTORY 


01X41 

100514 

DELETB 

J M S 

CRLF 

0:1145 

442033 


i$z 

CARCNT 

0114 6 

751000 


SKPICLA 

01X47 

601X53 


JMP 

» M 

01150 

101666 


JMS 

DBPRSL 

01151 

442033 


ISZ 

CARCNT 

01152 

6 0 114 6 


JMP 

i »4 

01153 

777777 


LAW 

*1 

01154 

042042 


PAP 

FIRST# 

01155 

202031 


LAC 

A 

01156 

741230 


SNA 


01157 

601106 


JMP 

si,i 

01160 

2020/3 


LAC 

(DIRECT 

01161 

042037 


DAC 

DJRPTK# 

01162 

222037 

PELETC 

LAC# 

DJRPTH 

0116 3 

741200 


SNA 

01164 

6014/5 


JMP 

noting 

01X65 

54 2 0 3 X 


SAD 

A 

01166 

6011/3 


JMP 

PELETP 

01167 

202074 


LAC 

(4 

011/0 

342037 


TAD 

uIrptr 

0X1/1 

042037 


PAC 

DJRPTH 

01172 

601162 


JMP 

peletc 

01173 

442037 

DELETP 

ISZ 

P I R P T H 

0X174 

22203/ 


LAC# 

QJRPTR 

0117 5 

542032 


SAD 

B ' 

01176 

601201 


JMP 

,+3 

01X77 

202075 


LAC 

( 3 

01200 

6011/0 


JMP 

/ 

LAW 

Q E L E T D o 3 

01201 

777776 


^2 

01202 

342.037 


TAD 

D JRPTH 

31203 

042037 


DAC 

pirpth 

01204 

101207 


JMS 

cpydjh 

01205 

1012/2 


JMS 

XPRPRP 

ki 1 2 0 6 

601204 


JMP 

»*2 


.EJECT 


/CHARACTER COUNTER GONE ZERO? 
/NO, LEFT JUSTIFY 


/NOTHING IN "A" THEREFORE JUST 
/A TERMINATOR WAS TYPED, START AGAIN, 
/DIRECTORY POINTER 

/DIRECTORY IS 81 LOCATIONS LONG, THERE 
/MUST BE A CLEARED LOCATION AT THE END 
/DONE WITH DIRECTORY NO MATCH 

/MATCH NOW CHECK 8 


/FULL MATCH 


PAGE 


DELETE SRC 


DELETE programs prom system DIRECTORY 


0120 7 

0 0 0 0 0 0 

CPYDIR 0 


01210 

202037 

LAC 

D \ RPTR 

01211 

040013 

PAC 

10 

01212 

040011 

DAC 

U 

01213 

220010 

LAC# 

10 

31214 

0420 5 i 

DAC 

OLTITA# 

01215 

22001O 

LAC# 

10 

01216 

042052 

DAC 

QLTITB# 

01217 

220010 

LAC# 

10 

01220 

042047 

DAC 

OLDBKN# 

01221 

220010 

L AC ** 

10 

01222 

042050 

DAC 

OLDWC# 

01223 

220010 

LAC* 

10 

01224 

741200 

SNA 


01225 

601467 

JMP 

DONEA 

01226 

042044 

DAC 

NUT I TA# 

01227 

220010 

LAC# 

10 

01230 

042045 

DAC 

NGTITB# 

01231 

220010 

LAC# 

10 

01232 

042043 

DAC 

NU8KN# 

01233 

220010 

LAC# 

10 

01234 

042046 

DAC 

NUWC# 

01235 

442042 

y 

I S2 

FIRST 

01236 

60:1254 

JMP 

COPYil 

01237 

202043 

LAC 

NUBKN " 

01240 

740001 

CM A 


01241 

342076 

TAD 

U) 

01242 

342047 

TAP 

DLDBKN 

01243 

042036 

DAC 

DIFF# " 

01244 

202044 

LAC 

NUTITA 

01245 

060011 

DAC# 

11 

01245 

202045 

LAC 

NUT I TB 

01247 

060011 

DAC# 

11 

31250 

440011 

l S 2 

11 

01251 

202046 

LAC 

NUWC 

01252 

060011 

DAC# 

11 

01253 

601266 

JMP 
, EJECT 

EXIT 



page; 
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01254 

202044 

COPY,! 

lac 

NUTITA 

01255 

060011 


PAC4 

11 

0 1256 

2 L 2 0 ^ 5 


LAC 

NUTIT5 

01257 

0 6 0 0 1 1 


DAC# 

11 

01260 

202043 


LAC 

NUBKN 

01261 

342036 


TAD 

DIFF 

01262 

060011 


PAC* 

11 

01263 

042047 


DAC 

OLDBKN 

01264 

202046 


LAC 

N U W C 

01265 

060011 

/ 

EXIT 

PAC# 

11 

01266 

202074 

LAC 

(4) 

01267 

342037 


TAD 

DIRPTR 

01270 

042037 


DAC 

oIrptn 

01271 

621 207 


*! M P 4 

CP YD I R 


, E J E C T 


o o 

o o 

PAGE. 6 DELETE SRC DELETE PROGRAMS PH OH SYSTEM DIRECTORY 


o 

01272 

000000 

XFRPRG 

0 



o 


012 73 

2 0 204 3 

DELETE 

LAC 

NUBKN 



0 

012 74 

041622 


DAC 

BLKNUM 


o 

012 7 5 

202046 


LAC 

NUWC 



01276 

342077 


TAD 

( 4000 




012/7 

740100 


SNA 



o 

o 

01300 

60134/ 


JMP 

DELETE 



01301 

042046 


DAC 

NUWC 



o 

01302 

774000 


LAW 

“4000 



01 303 

041611 


DAC 

R E A P * 2 


o 


0130 4 

041531 


DAC 

WRITE+2 



o 

01305 

042034 


DAC 

CMRCNT# 


o 

01306 

777766 


LAW 

*12 



01307 

0 420 4 1 


DAC 

ERRCNT# 



o 

01310 

202100 


LAC 

( 7777" 


o 

01311 

0 415,12 


DAC 

R E A D + 3 



01312 

0 41532 


DAC 

WRITE+3 




01313 

0 4 001 6 


DAC 

16 


o 

o 

01314 

101 507 


JMS 

READ 



01315 

202047 


LAC 

GLDBKN 




01316 

0 41622 


DAC 

BLKNUM 


o 

o 




/ 



0131/ 

101527 

deletg 

JMS 

write 




01320 

202101 

LAC 

(13777 


o 

o 

01321 

041512 


DAC 

RLAP + 3 



01322 

040017 


DAC 

17 




01323 

101507 


JMS 

READ 


o 

o 

01324 

220016 


LAC* 

16 

/now compare what was written on 


01325 

560017 


SAD# 

17 

/tape with the BUFFER ON 10000 TO 



01326 

741000 


SKP 


/1J777, IF THEY DISAGREE, A WRITE 

o 

o 

01327 

601341 


JMP 

ERROR 

/ERROR OCCURED, WRITE IT AGAIN 


01330 

442034 


I S2 

CMPCNT 




01331 

601324 


JMP 

i«5 


o 

o 

01332 

202043 


LAC 

NUBKN 

/NOW MOVE TO NEXT EIGHT BLOCKS AND 


01333 

342102 


TAD 

(10 

/MOVE THEM. 



0 1 3 3 4 

042045 


DAC 

NUBKN 


o 

o 

01335 

202047 


LAC 

□LDBKN 



0 133 6 

342102 


TAD 

(10 




01337 

042047 


DAC 

OLDBKN 


o 

o 

01340 

6812/3 


JMP 

/ 

X S 2 

DELETE 



01341 

442041 

ERROR 

ERRCNT 


o 

o 

01342 

741000 


SKP 



013 4 3 

601503 


JMP 

baptap 

/BAOTAPEI CAN|T WRITE RELIABLY, 



01344 

202100 


LAC 

( 777 / 

o 

o 

01345 

040016 


DAC 

16 


01346 

601,317 


JMP 

DELET’D 




.EJECT 

o O 


O o 

o O 


o 


o 


Pag f. 


7 

DELETE 

SRC DELETE PROGRAMS FROM 

SYSTEM DIRECTORY 




01347 

342103 

PELETF 

TAP 

(-4000 

/LESS THAN 

TEN BLOCKS 

TO 

BE MOVED, 

S 135 0 

341511 


0 AC 

REAQ + 2 





01351 

041531 


PAC 

WRITER 





01352 

042034 


DAC 

CMPCNT 





01353 

777766 


LAW 

«12 





01354 

042040 


DAC 

ERCNT# 





01355 

202100 


LAC 

( 7777 





0 135 6 

041512 


DAC 

REAP*3 





01357 

0 4 1 5 3 2 


DAC 

WRITE + 3 





01360 

040016 


DAC 

16 





01361 

202043 


LAC 

NpBKN 





013 6 2 

041622 


PAC 

BLKNUM 





01363 

10150/ 


JMS 

READ 





01364 

20204/ 


LAC 

OLDBKN 





01365 

3 41622 


PAC 

BLKNUM 





01366 

101527 

DELETH 

JMS 

WHITE 





01367 

202101 


LAC 

(13777 





01370 

041512 


DAC 

READ + J 





01371 

G 4001 7 


DAC 

17 





01372 

101507 


JMS 

REAP 





01373 

220016 


LAC* 

16 





3 :! 3 74 

560017 


SAD* 

17 





01375 

741000 


SKP 






01376 

631402 


JMP 

ERROR1 





01377 

442034 


IS2 

CMPCNT 





01400 

631.3/3 


JMP 

t -5 





0.1401 

621272 


JMP* 

/ 

ISZ 

XFRPRG 





01402 

442040 

ERROR1 

ENCNT 





01403 

741000 


SKP 






01404 

601503 


JMP 

BADTAP 





01405 

202100 


LAC 

( 7177 ' 





014 06 

0 4301 6 


DAC 

16 





3140/ 

201511 


LAC 

READ + 2 

/GET total 

WORD COUNT 

FOR 

COMPARISON COUNTER 

01410 

042334 


DAC 

CMPCNT 





01411 

601366 


JMP 

.EJECT 

DELETH 






o 


o o 



PAGE a 

DELETE 

SRC DELETE PROGRAMS FROM SYSTEM OIRECTORY 


o 

01412 

202104 

DONE 

UC 

f S L I N K » 1 /CLEAR LINKING TABLE 

o 


G 1 4 1 a 

« 4 0 0 i 7 


DAC ' 

17 



01414 

7 7 7 7 4 1 


LAW 

~37 

o 

o 

01415 

042040 


DAC 

ERCNT 


01416 

160017 


D£M* 

17 


o 

01417 

4 4 2 0 4 0 


ISH 

ERCNT 

o 

01420 

6 0141 6 


JMP 

/ 

LAW 

i*2 

o 

0142.1, 

777766 


*12 

o 

01422 

042041 


DAC 

ERRCNT 


01426 

202105 


LAC 

(4 77 ‘ /NOW WRJTE THE DIRECTORY ON TAPE 


o 

0 14 2 4 

041532 


DAC 

WRITE+3 /IN BLOCK ONE, 

• 

o 

01425 

777400 


LAW 

*400 


01426 

0 41561 


DAC 

WRITE+2 



01427 

777522 


LAW 

*256 

0 

0 

01460 

041511 


DAC 

R E A 0 * 2 


01431 

202076 


LAC 

c i> 

■ 


01462 

041622 


DAC 

BLKNUM 

o 

o 

01463 

101527 


JMS 

WRITE 


01434 

202100 


LAC 

( 7777 



01435 

041512 


DAC 

READ+5 

o 

o 

014 36 

101507 


JMS 

REAP 


01437 

777610 


LAW 

*170 



01440 

042040 


DAC 

ERCNT 

o 

o 

014 4 1 

202106 


LAC 

(DIRECT*! 


0 14 4 2 

040017 


DAC 

17 



01443 

202107 


LAC 

(10064 

o 

o 

01444 

040016 


DAC 

16 

0 1 4 4 5 

220016 


LAC# 

16 



01446 

560017 


SAD# 

17 

o 

o 

014 4 7 

741000 


SKP 


0 1 4 6 0 

601500 


JMP 

DRCER /DIRECTORY COMPARE ERROR 



01451 

442040 


isz 

ERCNT 

o 

o 

01452 

601445 


JMP 

i *5 

01456 

202110 


LAC 

( ENOMS2«1*400000 



014 5 4 

1004 6 0 


JMS 

TSIXBT 

o 

o 

014 5 5 

100253 

DONE, 1 

JMS 

WAIT 


0 14 5 6 

542064 


SAD 

(203 



01457 

600120 


JMP 

GETMON 

o 

o 

01460 

542111 


SAD 

(531 

014 61 

601106 


JMP 

ST ,1 



01462 

542112 


SAD 

(516 

o 

o 

01463 

600122 


JMP 

GETMON+2 

01464 

760277 


LAW 

2 77 



014 6 5 

100522 


JMS 

TYRONE 

o 

o 

0146 6 

601455 


JMP 

/ 

LAW 

DONE , 1 


01467 

777774 

□ ONEA 

*4 

o 

o 

01470 

0 42035 


DAC 

CNTR# 


01471 

160011 


D 7 M # 

11 



014/2 

442055 


ISZ 

CNTR 

o 

o 

0 1 4 7 6 

601471 


JMP 

i *2 


0 14 74 

601412 


JMP 

DONE 



o o 


o 


o 



O C ' 

o o 
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O .EJECT O 

O O 
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O O 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o O 

o o 
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U /1 

delete: 

SRC DELETE PROGRAMS FROM SYSTEM DIRECTORY 

01475 

202113 

NQT I ND 

U AC 

(NQTJN»l+400000 

01476 

1004 6 0. 


JMS 

tsixbt 

0 1 4 7 7 

60H06 


JMP 

ST ,1 

01500 

442041 

ORCER 

IS2 

ERRCNT 

01501 

601414 


JMP 

done*2 

01502 

6 0 1533 


JMP 

baqtap 

01503 

202114 

D A 0 T A R 

y 

LAC 

< WRERM-1+40000 

01504 

01505 

100460 

700312 


JMS 

KRB 

rsixBr 

0150 6 

600122 


JMP 

/ 

0 

GETMON+2 

01507 

000000 

REAP 


01510 

01511 

01512 

1 0 1557 

0 0 0 0 id 0 
000000 


JMS 

0 

0 

SEARCH 

01513 

7777/5 


LAW 

r-3 

01514 

042053 


OAC 

REQERR# 

01515 

201511 


LAC 

REAO+2 

01516 

040030 


DAC 

30 

01517 

201512 


LAC 

READ+J 

01520 

040031 


DAC 

31 

01521 

202115 


LAC 

(013000 

31522 
0 1523 

101547 

741100 


JMS 

SPA 

GO 

01524 

01525 

601630 

707555 


JMP 

DTLA+10 

RDERR 

01526 

621507 


JMP# 

/ 

READ 

01527 

000000 

WRITE 

0 


01530 

0 1531 

01532 

1 0 1 5 5 / 

000000 

000000 


JMS 

0 

0 

SEARCH 

01533 

7777/5 


LAW 

*»3 

01534 

042057 


DAC 

WRTERR# 

01535 

201531 


LAC 

WK | TE+2 

01536 

D 4 003 0 


DAC 

30 ' 

01537 

201532 


LAC 

WRJTE+3 

01540 

040031 


DAC 

3,1 

01541 

202116 


LAC 

(015000 

01542 

101547 


JMS 

GO 

01543 

741100 


SPA 


31544 

01545 

601637 

707555 


JMP 

DTLA + 10 

WTERR 

01546 

621527 


JMP# 

WRITE 


, EJECT 



PAGE 


U DELETE SRC DELETE PROGRAMS FROM SYSTEM OiRECTORY 




.. 


- 

0154 7 

0155 0 

1 :) 0 0 3 3 0 

707544 

GO 

0 

QTXA 


03,551 

7075/3 


DTEFJDTRB 

01552 

751300 


SKPICLA 


01553 

62154/ 


JMP* 

GO 

0 .1554 

707631 


PTDF 


01555 

6 0 1 5 5 1 


JMP 

1 

31556 

621547 


JMP* 

/ 

0 

GO 

0155 / 

000000 

SEARCH 


01560 

44155/ 


l sz 

SEARCH 

01561 

44155/ 


1 S2 

search 

01562 

777775 


LAW 

rt 3 

01563 

042054 


DAC 

SRCERR# 

0156 4 

707555 


DTLA+10 


01565 

140030 


Pz?M 

30 

31566 

202117 


LAC 

(SRCH 

01567 

040031 


PAC 

31 

01570 

202120 


LAC 

(061000 

01571 

10154/ 

SRCHA 

JMS 

GO 

01572 

741100 


SPA 


0 15 7 3 

601615 


JMP 

SRCHB 

0 157 4 

201623 


LAC 

SRCH 

01575 

502062 


AMD 

(1777) 

01576 

740001 


CM A 


01577 

341622 


TAP 

BLKNUM 

01600 

342121 


TAP 

<*2 

01601 

751100 


SPAICLA 


016 0 2 

6015/1 


JMP 

SRCHA 

0160 3 

202122 


LAC 

(040000 

01604 

10154/ 

SRCHC 

JMS 

GO 

01605 

741100 


SPA 


0160 6 

601624 


JMP 

SRCHER 

01607 

201623 


LAC 

SRCH 

01610 

502062 


AMD 

(1777) 

01611 

541622 


SAD 

BLKNUM 

01612 

621557 


JMP* 

search 

01613 

750000 


CIA 


01614 

601604 


JMP 

SRCHC 

01615 

502123 

SRCHB 

AMP 

(100000 

01616 

741200 


SNA 


01617 

601624 


JMP 

srcher 

01620 

202124 


LAC 

(060000 

01621 

601604 


JMP 

j 

SRCHC ~ 

01622 

3 00.000 

blknum 

t 

0 


01623 

000000 

SRCH 

0 

/ 

I sz 


01624 

442054 

srcher 

SRCERR 

3 3, 6 2 5 

741000 


SKP 


01626 

601646 


JMP 

□ TERR 

3162/ 

601564 


JMP 

, EJECT 

SEARCH +5 


PAGE 12 DELETE SRC DELETE PROGRAMS FROM SYSTEM DIRECTORY 


03,630 

442053 

rpkrr 

IS2 

REDERR 

01631 

741000 


S K P 


016 3 2 

601646 


JMP 

□ TERR 

01633 

101557 


J M S 

SEARCH 

01634 

0 0 0 0 0 0 


0 


01635 

000000 


0 


016 36 

601515 


JMP 

J 

HEAP+6 

01637 

44205/ 

WTERR 

f 

I $2 

wrterk 

01640 

7410 0 0 


SKP 


01641 

601646 


JMP 

PTERR 

016 4 2 

10155/ 


JMS 

SEARCH 

01643 

0 0 0 0 0 0 


0 


0 16 4 4 

000000 


0 


016 4 0 

6 0 1535 


JMP 

WRJTE+6 

016 4 6 

707552 

□ TERR 

/ 

DTRA 


0164 7 

042061 


DAO 

X2# 

0 1 650 

707572 


DTRB 


01651 

042060 


DAC 

XI# 

0165 2 

707555 


DTLA+10 


01653 

202125 


LAC 

(PTERA*l+4 00000 

016 5 4 

100460 


JMS 

TSIXBT 

0 1655 

202061 


LAC 

X2 

01656 

100540 


JMS 

PSQD 

01657 

202126 


LAC 

(PTERB^l 

016 60 

100460 


JMS 

TSIXBT 

016 61 

202060 


LAC 

XI 

01662 
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